home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib02.dsk / BASIC POKE CREATOR.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  29 lines
  1. 2  REM  *** BASIC POKE CREATOR ***
  2. 3  REM      BY DAVID P. SZETELA
  3. 4  REM      COPYRIGHT (C) 1980
  4. 5  REM      BY MICRO-SPARC, INC.
  5. 6  REM      LINCOLN, MA  01773
  6. 10  TEXT : HOME 
  7. 30 D$ =  CHR$(4)
  8. 40  PRINT D$;"MONC,I,O"
  9. 50  VTAB 10: PRINT "BASIC POKE CREATOR"
  10. 60  PRINT 
  11. 70  PRINT : INPUT "LINE NUMBER OF SUB DESIRED ";X$
  12. 80  PRINT : INPUT "ADDRESS OF FIRST BYTE OF ML CODE ";Y$
  13. 90  PRINT : INPUT "ADDRESS OF LAST BYTE OF ML CODE ";Z$
  14. 100  PRINT : INPUT "NAME FOR CREATED EXEC FILE? ";N$
  15. 110 Y =  VAL(Y$):Z =  VAL(Z$):K = Z -Y: DIM A$(K): FOR I = Y TO Z:A$(I -Y) =  STR$( PEEK(I)): NEXT 
  16. 120 X1 =  VAL(X$):X2 = X1 +10
  17. 130  PRINT D$;"OPEN";N$: PRINT D$;"DELETE";N$: PRINT D$;"OPEN";N$: PRINT D$;"WRITE";N$
  18. 140 J = 0
  19. 150 ZZ$ =  STR$(X2) +"DATA" +A$(J) +",":J = J +1
  20. 155 F = 0
  21. 160 K = K -1: FOR I = J TO TK
  22. 170 ZZ$ = ZZ$ +A$(J) +","
  23. 180  IF  LEN(ZZ$) > = 235  THEN D = I +1:ZZ$ = ZZ$ +A$(D):F = 1:X2 = X2 +10:I = K
  24. 190  NEXT 
  25. 200  IF F = 1  THEN  PRINT ZZ$:ZZ$ = "":J = D +1:K = K +1: GOTO 150
  26. 210 ZZ$ = ZZ$ +A$(K)
  27. 220 XX$ =  STR$(X1) +"FORI=" + STR$(Y) +"TO" + STR$(Z) +":READA:POKEI,A:NEXT:RETURN"
  28. 230  PRINT XX$: PRINT ZZ$
  29. 240  PRINT D$;"CLOSE";N$